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Facility: rms32 


Abstract: 
this routine sets (and optionally returns) the default directory 
string in the process i/o control page. 


Environment: 
vax/vms 


Author: 
tim halvorsen SEP-1979 


Modified By: 
V03-004 RAS0245 Ron Schaefer 24-Jan-1984 


Make sure that the default directory is NOT rooted 
as that leads to effectively a null aerecseny string 
e 


which is not good. Use extended NAM block lds. 

v03-003 KBT0589 Keith B. Thompson 22-Aug-1983 
Correct error path from RMS$XPFN 

V03-002 KBT0521 Keith B. Thompson 23-May-1983 
RMSXPFN moved so change ref to JSB 

v03-001 KBT0193_ Keith B. Thompson 23-Aug-1982 
Reorganize psects 

V02-002 REFORMAT Ron Schaefer 30-Jul-1980 09:27 


Reformat the source. 
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RMSSSETDDIR: set default directory string 


this routine moves the given default directory string 
to the process i/o control page. the resultant string 
is optionally returned to the caller. 


inputs: 


4(ap) = address of descriptor of new default directory string 
(optional - if not supplied, no change is made) 

8(ap) = address of word to receive length of resultant string 
(optional - if not supplied, no Length is returned) 

12(ap)= address of descriptor of buffer to receive resultant string 
(optional - if not supplied, string is not returned) 


r0 = status code (standard rms codes) 
pio$gt_ddstring may be set to the resultant directory string 


-ENABL LSB 
SENTRY RMSS$SETDDIR 


$STSTPT SETDDIR 
MOVAB 44 oe) Edel tt ; address of counted string 


COOQOOCCOCCOOCOCOCCOSOOOOOOCOOCOOCOOCOCOSooOOoOOoO =m 
COQOOCCCOCOCOCCOSOOOOCOCOCOO OOOO OOOO OOCSOOoOO Vr 
pele le lelelelelelelelelelelelelolelolelelelelelel elo) e| allele) oi </ as 


55 O00000000'°9F 9E 
56 85 


MOVZBL (R5)+,R6 : length of string 

: if caller requested existing string, return it also 
MOVL 12(AP) ,R1 ; address of buffer descriptor 
BEQL 5$ ; branch if none 
IFNORD #8,(R1),ERRIAL ; error if not readable 
CMPW R6,(R1) ; buffer long enough? 
GTRU ERRIAL 3; error if not 
IFNOWRT (R1),@4(R1),ERRIAL : error if not writable 

0481 61 00 65 S56 2 MOVCS R6,(R5),#0,(R1),a4(R1) : return existing string to caller 


if caller requested existing string length, return it 


51 08 AC 00 5$: MOVL 8(AP),R1 ; address to receive length 
09 «13 BEQL 10$ ; branch if not supplied 
IFNOWRT #2,(R1),ERRIAL : error if not writable 
61 56 B60 MOVW R6,(R1) ; return Length to caller 
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; if a new string is not supplied, return the existing string 

| 04 AC DS 10$: TSTL CAP) ; any input string given? 

| 0B 12 BNEG 208 : branch if yes © 

| 0089 «#831 BRW EXITOK 3; if not, exit with success 

| . 

| ; process error with caller's arguments 

| ERRIAL: RMSERR' IAL 

0084 «31 BRW EXIT 


: allocate a fab on the stack to be used as input to xpfn 


20$: SUBL2 #FABSC_BLN,SP ; allocate storege for fab 
MOVL ° ; save address of fab 
MOVCS #0,(SP),#0,#FABSC_BLN,(R8); zero fab 
ASSUME FAB$B_BLN EQ FABSB _BID+1 ; 
MOVW #FABST_BID+<FABSC_BLN@8>,FAB$B_BID(R8); set id and Length 


68 0050 8F 00 6E€ 00 
68 5003 8F 80 


allocate a nam block on the stack to be used as input to xpfn 


5E 00000060 8F C2 SUBL2 #NAM$C_BLN,SP ; allocate storage for nam block 
| ae ee MOVL P,R7 3 save address of nam block 
28 AB «SEO C+D MOVL SP,FABSL_NAM(R8) > save address in fab 
67 0060 8F 00 6€ 00 2 MOVCS #0,(SP),#0,#NAM$SC_BLN,(R7); zero nam block 
BLN EQ NAMS$B +1 


ASSUME NAMSB BID 
MOVW #NAMS$T_BID+<NAMSC_BLN@8>,NAMSB_BID(R7); set id and Length 


67 6002 8F B80 
SSB #NAMSV~SYNCHK ,NAMSB_NOP(R7); fast parse 


* allocate an expanded string buffer for resultant string 


5E€ OOOOOOFF 8F C2 SUBL2 #NAMSC_MAXRSS,SP ; allocate storage for expanded name 
OC A? SE 00 MOVL SP,NAMSL_ESA(R7) : save address in nam bloc 
OA A? FF BF 90 MOVB $#NAMSC_MAXRSS,NAMSB_ESS(R7); set buffer Length in nam block 


SE 00000050 8F 
,, ae: 


parse the input string. a call frame is created here so that if 
fseti detects any errors and ret’s, we never lose control. 
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51 04 AC DO OVL 4(AP),R1 : get address of input descriptor 
IFNORD #8,(R1),ERRIAL ; error if not readable 
50 61 7D Ova (R1),RO 3 get descriptor 
IFNORD RO,(R1),ERRIAL : error if string not readable 
34 AB 50 90 OOA OVB RO.FABSB_FNS(R8) > set length into fa 
2C AB 61 DE OOAC MOVAL (1), FABSL_FNA(RB) ; and address also 
DE'AF OO FB 8 BO CALLS #0,B*°PARSE ; perse the string - get any rms errors 
18 50—s«éEY B4 BLBC RO,EXIT : branch if error 
! 


cc  -  —_—_——_- Or eenn— eeesSgaX—XRwrxaxaxaxa—nr—ree—————— nn A 


dD 1 
| RetORE 100 SET DEFAULT DIRECTORY 16-SEP-1984 91: 1:¢¢ AX/VMS Macro v04-00 
04-000 RMSSSETDDIR, SET DEFAULT DIRECTORY STRIN 5=-SEP-1984 16:25:31 RMS .SRCIRMS SETDD.MAR;1 
eer 
O07 a8 ; store the resultant directory spec in the control region 
0B? 205 ° 
54 3A + 94 O07 8g St hae NAM$B_DIR(R7),R4 ; get 4 apoed  a string length 
55 48 A? 00 O0BD 208 MOVL NAMS$L_D t get resultant string add 
53 00000000'9F + 9E 00C1 309 MOVAB BAPIOSGT DDSTRING,R3. ; Sddress to store string 
83 54 90 00C8 10 MOVB R4,(R3)+ ; store length of strin 
63 65 54 28 00CB 11 MOVC3 = =R4,(R5),(R3) 3; store string behind i 
50 01 dO te ig EXITOK: MOVL #1,R0 
QD2 13 EXIT: SSB Hee RO ; mark as rms error 
Bee sie RET ; return with status 
0007 216 ERRDIR: RMSERR DIR 
F4 00DC 217 BRB EXIT 
OODE 218 
OODE 219 -DSABL LSB 
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++ 
PARSE: subroutine to parse the input string. this is a separate 
procedure so that if any internal rms routine detects an 
error, then it can perform a ret without our losing control. 
inputs: 
4(ap),r8 = fab address 
outputs: 


r0 = status 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


PARSE: .WORD “M<R7> 3 save nam address over call 
allocate internal ifab to be used only during this routine 


MOVAB a#PlO$GW_PIOIMPA,R11 ; set impure area address 
MOVL #PSL$C_EREC,R7 ; caller's access mode 
BSBW  RMSFSETI_ALT : allocate internal ifab 


set the previous mode to exec so that nam probes will work 


MOVPSL -(SP) ; use current as next 
INSV #PSLSC_EXEC,#PSLSV_PRVMOD ,APSL$S_PRVMOD,(SP) ; make prvmod=exec 
yeas B*10$ ; just beyond rei 


; parse the input string 


10$: JSB RMSXPFN 3 porsereugens file name string 
BLBC RO,30$ ; branch if error 
BBS #FWASV_WILD DIR, (R10) .208 ; error if any wild cards 
BBS . #FWASV-EXP_ROOT,(R10),20$ 3; error if rooted dir 
BITW #<FWASA TYPE! FWASM_VERSION! FWASM NAME> ,=- 

FWA$SQ_FCAGS(R10) ; name, type and version should not 
; be specified on set default 

BEQLU 308% 3; they weren't specified 

eps: RMSERR DIR 

O$: PUSHL RO ; save return status 
BSBW RMSCLEANUP ; cleanup ifab, fwa 
Ree RO ; restore status 


RMSOSETDD 
Symbol table 


+f PSECT_EP 
SRMSTEST 
‘Sbams -PBUGCHK 
$SSRMS_ TBUGCHK 
SSRAS UMODE 


N 
WANS V. SYNCHK 
PARSE” 
PIOSA_TRACE 
PIO$GT a tate 
PIO$SGW_PIOIMPA 
EC 
PSL$V" Soe 
RMSCLEANU 
RMSFSETI. VALT 
RMSXPFN 
RASBSETDDIR 
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| VAX-11 Macro Run Statistics -SEP-1984 16:25:31 (CRMS.SRCIRMSOS 
prem ese ene erent eo en nam aaa + 
; Performance indicators | 

Phase Page faults CPU Time Elapsed Time 

Initialization | + 00 100:00.07 00:00:00.95 

Command processing 108 0:00: 8-58 00:00: S-¢3 

Pass 314 0:00:10.1 0:00:22.31 

Symbol table sort 0 0:00:01.40 0:00:01.90 

Pass 2 6¢ 00: HGS 8008S 3g 

Symbol table output 00:00:00.09 0:00:00.2 

Psect synopsis output 2 00:00:00.04 00:00:00.11 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 524 00:00:14.39 00:00:37.01 


The_ working set Limit was 1500 pages. 

55631 bytes (109 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1104 non-local and 8 local symbols. 
274 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


+ 
! Macro Library statistics ! 
geome n anne ere roe ewer emer ence + 


Macro Library name 


.$255$DUA28: CRMS.OBJJRMS.MLB; 1 11 
~$255$DUA28: CSYS.OBJJLIB.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 18 


1233 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOSETDD/OBJ=OBJ$:RMSOSETDD MSRC$:RMSOSETDD/UPDATE=(ENHS:RMSOSETDD) +EXECML$/LIB+LIB$:RMS/LIB 
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